home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
rexx
/
imc
/
patches-.5
< prev
next >
Wrap
Text File
|
1994-05-22
|
9KB
|
329 lines
#/bin/sh
# This file was created by "diff -e". It patches every file which changed
# from version 1.5 to version 1.5a. Change to the directory containing all
# the (unmodified) version 1.5 files and run this script to make version
# 1.5a.
#
# A context diff file can be found in file diffs-1.5.Z
#
ed - Make.orig << '-*-END-*-'
84c
#CCFLAG=
#LDFLAG=-s
#MORECCFLAGS = -DNO_LDL -qchars=signed
.
w
q
-*-END-*-
ed - README << '-*-END-*-'
16,22c
Compiled binaries may be available in a separate distribution file whose
filename starts with the target machine name. If you use the compiled
binaries, then "parse version" will give the release date rather than
the date of compilation.
.
w
q
-*-END-*-
ed - README.files << '-*-END-*-'
47a
A separate distribution file containing the files rexx, rxstack, rxque and
possibly rxmathfn.rxfn may be present. These are compiled executables: just
move these into a binaries directory and you are ready to try out REXX/imc.
.
5,11d
w
q
-*-END-*-
ed - README.make << '-*-END-*-'
283a
Note that the single-letter options will not work properly if you have
inserted an extra "CCFLAG=" or "LDFLAG=" line into the Make file.
.
248a
.
247a
A recent article on comp.unix.programmer stated that dlopen(), dlsym() and
dlclose() functions have been written for AIX. It said:
>you might have a look at the `libdl emulation library' for AIX that has
>been published in USENET a while ago (I believe its author is
>jum@helios.de). This library emulates the dlopen(), dlsym(), and
>dlclose() functions of the dynamic linker interface of SysVR4 and
>SunOS 4.1/5.x under AIX.
(this text was from article <220l5e$on@news.cs.tu-berlin.de>, sent by
net@cs.tu-berlin.de (Oliver Laumann))
.
243,246c
removed from the binaries directory. However, it will still be possible
to use external functions written in Rexx. You will be able to use the
REXX math library by copying the Rexx file rxmathfn.exec into the binaries
directory. You can prevent the Make file from trying to compile the math
library by defining MATH to be blank, as mentioned in the Make file.
.
238c
functions), -lbsd (for systems with BSD compatibility libraries, as in AIX),
.
199,200c
binaries, then inform them of the fact that they may optionally set
the REXXIMC environment variable before "rexx" is invoked. Note that
REXX/imc should still work even if they do not do this.
.
128,130c
compilation is other than $HOME/`arch` (or if that is non-existent
the current directory), then set the environment variable BINDIR to
the value you wish it to be.
.
116c
them to "ld". Alternatively, you may place the line "LDFLAG=<zero or
more flags here>" just after the definition of MORECCFLAGS.
.
111c
altering the definition of MORECCFLAGS, or redefine the flags by
adding "CCFLAG= <zero or more flags here>" just after the definition
of MORECCFLAGS.
.
98c
path to reflect the correct path to "gcc" itself on your machine. If
"gcc" is on your path, then just "gcc" will work.
.
37c
calc.o globals.o rexx.o rxfn.o shell.o util.o
.
w
q
-*-END-*-
ed - README.news << '-*-END-*-'
25a
The option "setrc" has been added to aid migration. This option causes the
I/O functions to set the RC variable and to signal on error (if NOTREADY is
not being trapped).
.
w
q
-*-END-*-
ed - README.versions << '-*-END-*-'
147a
REXX/imc-beta-1.5a 4.00 5 Sep 1993 was released to patch the following:
* Corrected the AIX cc compile flags -O2 and -qchar=signed.
* Removed extraneous definition of bsearch.
* Renamed "free" label to satisfy SunOS cc compiler.
* Corrected an uninitialised variable reference which caused a crash on
certain function calls.
* Corrected "storage exhausted" error with startup on AIX.
* Corrected a bug which caused looping while reporting "Unmatched quote"
error in certain input files.
* Corrected an error which left the default filetype blank when the
source file was standard input or "-s string".
* Allowed "address ''" and "trace ''" to run without error.
* Disallowed "call on novalue" and "call on syntax".
* Added setrc option to aid compatibility with earlier versions.
* Added -v and -c commandline flags.
.
w
q
-*-END-*-
ed - calc.c << '-*-END-*-'
1133c
/* if(!i)die(Enostring); We allow null strings except where checked individually */
.
w
q
-*-END-*-
ed - const.h << '-*-END-*-'
3c
#define VER "beta-1.5a"
.
w
q
-*-END-*-
ed - globals.c << '-*-END-*-'
69a
int setrcflag=0; /* flag for "options setrc" */
.
w
q
-*-END-*-
ed - globals.h << '-*-END-*-'
80a
extern int setrcflag; /* flag for "options setrc" */
.
w
q
-*-END-*-
ed - rexx.c << '-*-END-*-'
2274a
}
.
2273c
gettoken(*lineptr,&tmpchr,varnamebuf,varnamelen,0);
if(!varnamebuf[0])die(Enostring);
.
2271c
if(on && **lineptr==NAME){
.
2254a
if(!strcasecmp(option,"setrc"))return setrcflag=1;
if(!strcasecmp(option,"nosetrc"))return setrcflag=0,1;
.
1952a
}
.
1949c
if(!lit){
.
1189a
if(i==Isyntax||i==Inovalue)die(Etrap);
.
1097a
else if(setrcflag)rcset(0,Enotready,"stdin");
.
553c
dofree:
.
461c
else goto dofree; /* This frees and exits */
.
425a
source[++lines]=ptr+1;
.
205a
strcpy(extension,filetype),
extlen=strlen(extension);
.
202c
if(input)
optionx=0,
strcpy(fname,"string"),
strcpy(extension,filetype),
extlen=strlen(extension);
.
183,185c
if(c<argc-1)args[argtot++]=' ';
.
181c
memcpy(args+argtot,argv[c],l);
.
176,177c
if(arglen)args=allocm(arglen);
else args=0; /* this makes arg()=0. */
.
164a
case 'V': /* "rexx -v" prints version and exits */
puts(version); /* but "rexx -v something" prints version */
if(argc==2)die(0); /* and behaves like "rexx something". */
break;
.
143a
case 'C':
.
w
q
-*-END-*-
ed - rexx.ref << '-*-END-*-'
2640c
REXX/imc currently recognises the following options (options starting
"no" are listed under their opposites):
SETRC This option causes the I/O operations linein,
charin, lineout, charout, parse pull and parse
linein to set the RC special variable as they
did in earlier versions of REXX/imc. If the
NOTREADY condition is not being trapped, then an
I/O operation which sets RC to a nonzero value will
instead cause an ERROR condition to be raised, if
that is being trapped.
NOSETRC The opposite of SETRC; that is, this option restores
the behaviour of I/O operations to the documented
behaviour.
.
2482,2483c
If no setting is specified or if the setting is an empty string, then
interactive tracing is turned off and tracing is set to "N".
.
82,83c
or "-" is specified as the filename then REXX/imc reads a program from
the standard input.
.
77,79c
it prevents an ".exec" from being appended to the filename,
and it causes the first line of the file to be ignored (see
below).
.
69,70c
may need to be quoted, because "?" is a shell metacharacter.
.
62,64c
metacharacters (including spaces) then it must be quoted to
prevent the shell from interpreting it or splitting it up.
The flags -s and -c are equivalent. The latter is provided
for consistency with shell parameters.
.
58c
-c string though it were a program. The string may contain newline
.
56a
-v The interpreter will print out the version string (as used
by "parse version"). The command "rexx -v" by itself will
terminate after printing the version string, but all other
forms will continue as if the -v option were not present
after printing the version string.
.
w
q
-*-END-*-
ed - rexx.summary << '-*-END-*-'
152c
TRACE [symbol] - control program tracing. Values are:
.
97a
OPTIONS expression - Control system-dependent things
.
29c
* The following functions: chdir getcwd getenv putenv system userid
.
w
q
-*-END-*-
ed - rxfn.c << '-*-END-*-'
2771a
else if(setrcflag)rcset(0,Enotready,name);
.
2647a
else if(setrcflag)rcset(0,Enotready,name);
.
2549a
if(setrcflag)rcset(0,Enotready,name);
.
2420a
else if(setrcflag)rcset(0,Enotready,name);
.
100d
w
q
-*-END-*-
ed - util.c << '-*-END-*-'
1215c
if(sourcelen-1<=++lines)
.
113c
if(rc && type==Enotready)lasterror=rc; /* save an I/O error */
.
109c
if(type!=Enotready || setrcflag){ /* set rc after a command */
.
104c
if(rc && call==0 && catch==0 && (type==Efailure||type==Enotready&&setrcflag))
.
w
q
-*-END-*-